home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / ktekdockv1.dxpack / {78998A22-3CCF-4F7D-9E9B-C99C8305CA52}.DXScript2 < prev    next >
Extensible Markup Language  |  2004-08-24  |  2KB  |  37 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim oX
  5. Dim lower, upper, travel
  6. oX=0
  7. lower=0
  8. upper=100
  9. travel=76
  10.  
  11. Sub Object_OnScriptEnter
  12.     If DesktopX.ScriptObject("wmp").Control.settings.mute = False Then
  13.         DesktopX.Object("wmp_txt_volume").Text = "vol: " & DesktopX.ScriptObject("wmp").Control.Settings.volume
  14.     Else    
  15.         DesktopX.Object("wmp_txt_volume").Text = "vol: " & DesktopX.ScriptObject("wmp").Control.Settings.volume & " (mute)"
  16.     End If
  17.     value=DesktopX.ScriptObject("wmp").Control.Settings.volume 'initialise slider position
  18.     x=Cint(travel*(value-lower)/(upper-lower))
  19.     Object.Left=oX+x
  20. End Sub
  21.  
  22. Sub Object_OnDrag(x,y,x2,y2)
  23.     Object.top = Object.top
  24.     If x2<oX Then Object.left=oX
  25.     If x2>oX+travel Then Object.left=oX+travel
  26.     value=Object.Left-oX
  27.     range=upper-lower
  28.     proportion=value/travel
  29.     value=Cint(lower+proportion*range)
  30.     DesktopX.ScriptObject("wmp").Control.Settings.volume = value
  31.     If DesktopX.ScriptObject("wmp").Control.settings.mute = False Then
  32.         DesktopX.Object("wmp_txt_volume").Text = "vol: " & DesktopX.ScriptObject("wmp").Control.Settings.volume
  33.     Else    
  34.         DesktopX.Object("wmp_txt_volume").Text = "vol: " & DesktopX.ScriptObject("wmp").Control.Settings.volume & " (mute)"
  35.     End If
  36. End Sub]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>303</EditorLeft><EditorTop>130</EditorTop><EditorRight>1166</EditorRight><EditorBottom>876</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  37.